# Creates vector of length x, initalized with ones.
ones <- function(x) {
  ones <- matrix(1, nrow = x, ncol = 1)
}